home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 16 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  255 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 16                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           (null)ESTING (null)OUR (null)ORK  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  CHR$ILLIAN BOUGHT 3 PENS AT 12 CENTS
  51. 210 PRINT"  EACH AND HANDED THE STOREKEEPER
  52. 215 [153]"  50 CENTS.  (null)HE RECEIVED 14 CENTS
  53. 217 PRINT"  IN CHANGE.  [215]AS THAT RIGHT?"
  54. 220 GOSUB81:GOSUB70
  55. 225 PRINT"             [145]"
  56. 230 INPUT A$
  57. 240 IFA$<>"YES"ANDA$<>"Y"THEN270
  58. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  59. 260 P=P+1:GOTO300
  60. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  61. 275 IFZ=2THENG=G+1:GOTO285
  62. 280 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  63. 282 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  64. 285 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS YES[158].      ":GOSUB82
  65. 290 PRINT"  12 X 3 = 36                      ":GOSUB82
  66. 292 PRINT"  AND 50 - 36 = 14                  "
  67. 295 GOSUB82:GOSUB90
  68. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  69. 305 PRINT"  [193]LICE BOUGHT A DOZEN APPLES FOR 55
  70. 310 [153]"  CENTS AND A BASKET OF RASPBERRIES       FOR 30 CENTS.
  71. 315 PRINT"  [211]HE RECEIVED 25 CENTS IN CHANGE         FROM A DOLLAR BILL.
  72. 317 [153]"  (null)AS THAT RIGHT?"
  73. 320 [141]81:[141]70
  74. 325 [153]"             ON"
  75. 330 [133] A$
  76. 340 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]370
  77. 350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  78. 360 P[178]P[170]1:[137]400
  79. 370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  80. 375 [139]Z[178]2[167]G[178]G[170]1:[137]385
  81. 380 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  82. 382 [153]"OPENONON                                        ONONONONONONON":[137]325
  83. 385 [153]"SYSONON  (null)HE CORRECT ANSWER IS NOSYS.      ":[141]82
  84. 390 [153]"  .55 + .30 = .85                      ":[141]82
  85. 392 [153]"  AND 1.00 - .85 = .15              "
  86. 395 [141]82:[141]90
  87. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  88. 405 [153]"  MID$EFF TOLD HIS SISTER HE WOULD HAVE
  89. 410 PRINT"  $1.30 LEFT OUT OF HIS TWO DOLLAR
  90. 415 [153]"  BILL AFTER HE BOUGHT TWO TICKETS
  91. 416 PRINT"  TO THE CIRCUS AT 25 CENTS EACH.
  92. 417 [153]"  (null)AS HE RIGHT?"
  93. 420 [141]81:[141]70
  94. 425 [153]"             ON"
  95. 430 [133] A$
  96. 440 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]470
  97. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  98. 460 P[178]P[170]1:[137]500
  99. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  100. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  101. 480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  102. 482 [153]"OPENONON                                        ONONONONONONON":[137]425
  103. 485 [153]"SYSONON  (null)HE CORRECT ANSWER IS NOSYS.      ":[141]82
  104. 490 [153]"  .25 X 2 = .50                     ":[141]82
  105. 492 [153]"  AND 2.00 - .50 = 1.50             "
  106. 495 [141]82:[141]90
  107. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  108. 505 [153]"  ATN STOREKEEPER GAVE (null)RS (null)ODD 90 CENTS
  109. 510 PRINT"  IN CHANGE FROM $5.00 WHEN SHE
  110. 515 [153]"  BOUGHT GLOVES FOR 3.50 AND RIBBON       FOR 60 CENTS.
  111. 517 PRINT"  [215]AS THAT RIGHT?"
  112. 520 GOSUB81:GOSUB70
  113. 525 PRINT"             [145]"
  114. 530 INPUT A$
  115. 540 IFA$<>"YES"ANDA$<>"Y"THEN 570
  116. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  117. 560 P=P+1:GOTO600
  118. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  119. 575 IFZ=2THENG=G+1:GOTO585
  120. 580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  121. 582 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  122. 585 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS YES[158].      ":GOSUB82
  123. 590 PRINT"  3.50 + .60 = 4.10                 ":GOSUB82
  124. 592 PRINT"  AND 5.00 - 4.10 = .90             "
  125. 595 GOSUB82:GOSUB90
  126. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  127. 605 PRINT"  [205]R. [211]TUBBS RECEIVED $5 WHEN HE PAID
  128. 610 [153]"  FOR 10 GALLONS OF GAS AT $1.50 A
  129. 615 PRINT"  GALLON AND PAID WITH A 20 DOLLAR        BILL.
  130. 617 [153]"  (null)AS THAT RIGHT?"
  131. 620 [141]81:[141]70
  132. 625 [153]"             ON"
  133. 630 [133] A$
  134. 640 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 670
  135. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  136. 660 P[178]P[170]1:[137]700
  137. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  138. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  139. 680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  140. 682 [153]"OPENONON                                        ONONONONONONON":[137]625
  141. 685 [153]"SYSONON  (null)HE CORRECT ANSWER IS YESSYS.      ":[141]82
  142. 690 [153]"  10 X 1.50 = 15.00                 ":[141]82
  143. 692 [153]"  AND 20.00 - 15.00 = 5.00          "
  144. 695 [141]82:[141]90
  145. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  146. 705 [153]"  ATNFTER BUYING 7 POUNDS OF STEAK AT
  147. 710 PRINT"  $3.50 A POUND, [205]RS [211]TUPEN RECEIVED
  148. 715 [153]"  $25.50 CHANGE FROM A FIFTY DOLLAR       BILL.
  149. 717 PRINT"  [215]AS THAT CORRECT?"
  150. 725 PRINT"             [145]"
  151. 730 INPUT A$
  152. 740 IFA$<>"YES"ANDA$<>"Y"THEN770
  153. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  154. 760 P=P+1:GOTO800
  155. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  156. 775 IFZ=2THENG=G+1:GOTO785
  157. 780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  158. 782 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  159. 785 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS YES[158].      ":GOSUB82
  160. 790 PRINT"  3.50 X 7 = 24.50                  ":GOSUB82
  161. 792 PRINT"  AND 50.00 - 24.50 = 25.50         "
  162. 795 GOSUB82:GOSUB90
  163. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  164. 805 PRINT"  [202]OE SPENT $1.50 FOR A GLOVE AND
  165. 810 [153]"  SEVENTY CENTS FOR A BALL AT A           GARAGE SALE.
  166. 815 PRINT"  [200]E RECEIVED $1.60 FROM $4.00.
  167. 817 [153]"  STR$ID HE RECEIVE THE CORRECT CHANGE?"
  168. 820 [141]81:[141]70
  169. 825 [153]"             ON"
  170. 830 [133] A$
  171. 840 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]870
  172. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  173. 860 P[178]P[170]1:[137]900
  174. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  175. 875 [139]Z[178]2[167]G[178]G[170]1:[137]885
  176. 880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  177. 882 [153]"OPENONON                                        ONONONONONONON":[137]825
  178. 885 [153]"SYSONON  (null)HE CORRECT ANSWER IS NOSYS.      ":[141]82
  179. 890 [153]"  1.50 + .70 = 2.20                 ":[141]82
  180. 892 [153]"  AND 4.00 - 2.20 = 1.80          "
  181. 895 [141]82:[141]90
  182. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  183. 905 [153]"  LENHRISTY BOUGHT SIX BOTTLES OF GLUE
  184. 910 PRINT"  AT 20 CENTS A BOTTLE.  [211]HE HANDED       THE CLERK $1.50."
  185. 915 PRINT"  [215]AS THREE DIMES THE CORRECT CHANGE?"
  186. 920 GOSUB81:GOSUB70
  187. 925 PRINT"             [145]"
  188. 930 INPUT A$
  189. 940 IFA$<>"YES"AND A$<>"Y"THEN970
  190. 950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  191. 960 P=P+1:GOTO1000
  192. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  193. 975 IFZ=2THENG=G+1:GOTO985
  194. 980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  195. 982 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
  196. 985 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS YES[158].      ":GOSUB82
  197. 990 PRINT"  6 X .20 = 1.20                    ":GOSUB82
  198. 992 PRINT"  AND 1.50 1.20 = .30 (3 DIMES)     "
  199. 995 GOSUB82:GOSUB90
  200. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  201. 1005 PRINT"  [198]RED WEIGHED 106 POUNDS, [206]ANCY
  202. 1010 [153]"  WEIGHED 76 POUNDS, AND PEEKETTY            WEIGHED 82 POUNDS.
  203. 1015 PRINT"  [196]ID THE GIRLS WEIGH 168 POUNDS?"
  204. 1020 GOSUB81:GOSUB70
  205. 1025 PRINT"             [145]"
  206. 1030 INPUT A$
  207. 1040 IFA$<>"NO"ANDA$<>"N"THEN1070
  208. 1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  209. 1060 P=P+1:GOTO1100
  210. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  211. 1075 IFZ=2THENG=G+1:GOTO1085
  212. 1080 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  213. 1082 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
  214. 1085 PRINT"[158][145][145]  [212]HE CORRECT ANSWER IS NO[158].      ":GOSUB82
  215. 1090 PRINT"  76 + 82 = 158                     "
  216. 1095 GOSUB82:GOSUB90
  217. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  218. 1105 PRINT"  [201] RECEIVED 69 CENTS CHANGE FROM
  219. 1110 [153]"  A DOLLAR WHEN RIGHT$ BOUGHT THREE PENS       AT 7 CENTS EACH."
  220. 1115 [153]"  STR$ID RIGHT$ RECEIVE THE CORRECT CHANGE?"
  221. 1120 [141]81:[141]70
  222. 1125 [153]"             ON"
  223. 1130 [133] A$
  224. 1140 [139]A$[179][177]"N"[175]A$[179][177]"NO"[167]1170
  225. 1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  226. 1160 [137]1200
  227. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  228. 1175 [139]Z[178]2[167]G[178]G[170]1:[137]1185
  229. 1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  230. 1182 [153]"OPENONON                                        ONONONONONONON":[137]1125
  231. 1185 [153]"SYSONON  (null)HE CORRECT ANSWER IS NOSYS.      ":[141]82
  232. 1190 [153]"  .07 X 3 = .21                     ":[141]82
  233. 1192 [153]"  AND 1.00 - .21 = .79              "
  234. 1195 [141]82:[141]90
  235. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  236. 1205 D[178]W[171]G:C[178]10[171]W
  237. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  238. 1215 PRINT"                 ";C
  239. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  240. 1225 [153]"                 ";D
  241. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  242. 1235 PRINT"                 ";G;""
  243. 1245 GOSUB90
  244. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  245. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  246. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  247. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  248. 1270 IFR$="R"THENRESTORE:GOTO100
  249. 1275 RESTORE
  250. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  251. 1285 [147]"MENU",8
  252. 1290 [138]
  253. 1295 [128]
  254. 1300 [143] BILL CUMBERLAND 90:12:24
  255.